home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 August / PCWorld_2001-08_cd.bin / Software / Vyzkuste / codePad / CodePad30.exe / Code Templates / objectpascal.tpl / objectpascal.txt
Encoding:
Text File  |  2000-01-03  |  3.8 KB  |  204 lines
  1. object TPersHolder
  2.   P = <
  3.     item
  4.       Name = 'arrayc'
  5.       Description = 'array declaration (const)'
  6.       Code.Strings = (
  7.         'array[0..|] of = ();')
  8.     end
  9.     item
  10.       Name = 'arrayd'
  11.       Description = 'array declaration (var)'
  12.       Code.Strings = (
  13.         'array[0..|] of ;')
  14.     end
  15.     item
  16.       Name = 'casee'
  17.       Description = 'case statement (with else)'
  18.       Code.Strings = (
  19.         'case | of'
  20.         '  : ;'
  21.         '  : ;'
  22.         'else ;'
  23.         'end;')
  24.     end
  25.     item
  26.       Name = 'cases'
  27.       Description = 'case statement'
  28.       Code.Strings = (
  29.         'case | of'
  30.         '  : ;'
  31.         '  : ;'
  32.         'end;')
  33.     end
  34.     item
  35.       Name = 'classc'
  36.       Description = 'class declaration (with Create/Destroy overrides)'
  37.       Code.Strings = (
  38.         'T| = class(T)'
  39.         'private'
  40.         ''
  41.         'protected'
  42.         ''
  43.         'public'
  44.         '  constructor Create; override;'
  45.         '  destructor Destroy; override;'
  46.         'published'
  47.         ''
  48.         'end;')
  49.     end
  50.     item
  51.       Name = 'classd'
  52.       Description = 'class declaration (no parts)'
  53.       Code.Strings = (
  54.         'T| = class(T)'
  55.         ''
  56.         'end;')
  57.     end
  58.     item
  59.       Name = 'classf'
  60.       Description = 'class declaration (all parts)'
  61.       Code.Strings = (
  62.         'T| = class(T)'
  63.         'private'
  64.         ''
  65.         'protected'
  66.         ''
  67.         'public'
  68.         ''
  69.         'published'
  70.         ''
  71.         'end;')
  72.     end
  73.     item
  74.       Name = 'forb'
  75.       Description = 'for statement'
  76.       Code.Strings = (
  77.         'for | :=  to  do'
  78.         'begin'
  79.         ''
  80.         'end;')
  81.     end
  82.     item
  83.       Name = 'fors'
  84.       Description = 'for (no begin/end)'
  85.       Code.Strings = (
  86.         'for | :=  to  do')
  87.     end
  88.     item
  89.       Name = 'function'
  90.       Description = 'function declaration'
  91.       Code.Strings = (
  92.         'function |(): ;'
  93.         'begin'
  94.         ''
  95.         'end;')
  96.     end
  97.     item
  98.       Name = 'ifb'
  99.       Description = 'if statement'
  100.       Code.Strings = (
  101.         'if | then'
  102.         'begin'
  103.         ''
  104.         'end;')
  105.     end
  106.     item
  107.       Name = 'ife'
  108.       Description = 'if then (no begin/end) else (no begin/end)'
  109.       Code.Strings = (
  110.         'if | then'
  111.         ''
  112.         'else')
  113.     end
  114.     item
  115.       Name = 'ifeb'
  116.       Description = 'if then else'
  117.       Code.Strings = (
  118.         'if | then'
  119.         'begin'
  120.         ''
  121.         'end'
  122.         'else'
  123.         'begin'
  124.         ''
  125.         'end')
  126.     end
  127.     item
  128.       Name = 'ifs'
  129.       Description = 'if (no begin/end)'
  130.       Code.Strings = (
  131.         'if | then')
  132.     end
  133.     item
  134.       Name = 'procedure'
  135.       Description = 'procedure declaration'
  136.       Code.Strings = (
  137.         'procedure |();'
  138.         'begin'
  139.         ''
  140.         'end;')
  141.     end
  142.     item
  143.       Name = 'trycf'
  144.       Description = 'try finally (with Create/Free)'
  145.       Code.Strings = (
  146.         '|variable := typename.Create;'
  147.         'try'
  148.         ''
  149.         'finally'
  150.         '  variable.Free;'
  151.         'end;')
  152.     end
  153.     item
  154.       Name = 'trye'
  155.       Description = 'try except'
  156.       Code.Strings = (
  157.         'try'
  158.         '  |'
  159.         'except'
  160.         ''
  161.         'end;')
  162.     end
  163.     item
  164.       Name = 'tryf'
  165.       Description = 'try finally'
  166.       Code.Strings = (
  167.         'try'
  168.         '  |'
  169.         'finally'
  170.         ''
  171.         'end;')
  172.     end
  173.     item
  174.       Name = 'whileb'
  175.       Description = 'while statement'
  176.       Code.Strings = (
  177.         'while | do'
  178.         'begin'
  179.         ''
  180.         'end;')
  181.     end
  182.     item
  183.       Name = 'whiles'
  184.       Description = 'while (no begin)'
  185.       Code.Strings = (
  186.         'while | do')
  187.     end
  188.     item
  189.       Name = 'withb'
  190.       Description = 'with statement'
  191.       Code.Strings = (
  192.         'with | do'
  193.         'begin'
  194.         ''
  195.         'end;')
  196.     end
  197.     item
  198.       Name = 'withs'
  199.       Description = 'with (no begin)'
  200.       Code.Strings = (
  201.         'with | do')
  202.     end>
  203. end
  204.